home *** CD-ROM | disk | FTP | other *** search
/ Shock - The Game / Shock The Game.iso / pc / casts / old.cst / 00011_navOb.ls < prev    next >
Encoding:
Text File  |  1997-04-08  |  2.2 KB  |  82 lines
  1. --property PnavObList, PhotSpotList, PmyLink, PmyFrame
  2. --
  3. --global GnavList, GvidSprite, GhotSpotOffset, GpicList, GscreenObject
  4. --
  5. --
  6. --on new me, whichNode, whichFrame
  7. --  
  8. --  if objectP(GscreenObject) then
  9. --    if the PmySound of GscreenObject then
  10. --      if not soundBusy (1) then puppetsound member "eerie22" of castlib "sound"
  11. --    end if
  12. --    
  13. --    if whichNode = #n29n then
  14. --      if the PtheRock of GscreenObject and the PtheMallet of GscreenObject then
  15. --        set whichNode = #n29xn
  16. --      else if the PtheRock of GscreenObject then
  17. --        set whichNode = #n29bn
  18. --      else if the PtheMallet of GscreenObject then
  19. --        set whichNode = #n29nx
  20. --      end if
  21. --    end if
  22. --    
  23. --    if whichNode = #n35w then
  24. --      if the ParcadeFlag of GscreenObject then
  25. --        puppetsound member "vo1.aiff" of castlib "sound"
  26. --        set the ParcadeFlag of GscreenObject = 0
  27. --      end if
  28. --    end if
  29. --    if whichNode = #n35e then set the ParcadeFlag of GscreenObject = 1
  30. --    if whichNode = #n11e then alertThing
  31. --    
  32. --    if not voidP(getaprop(the PmySounds of GscreenObject, whichNode)) then
  33. --      puppetsound member getaprop(the PmySounds of GscreenObject, whichNode) of castlib "sound"
  34. --    end if
  35. --  end if
  36. --  
  37. --  set myData = getaprop(GnavList, whichNode)
  38. --  
  39. --  set navList = getat(myData,1)
  40. --  set PnavObList = []
  41. --  repeat with x = 1 to count(navList)
  42. --    set vidNav = new(script "vidNav", getat(navList,x))
  43. --    add PnavObList, vidNav
  44. --  end repeat
  45. --  
  46. --  set PmyLink = whichNode
  47. --  set PmyFrame = whichFrame
  48. --  set the movieTime of sprite GvidSprite = whichFrame
  49. --  
  50. --  -- chechNew PmyLink
  51. --  
  52. --  return me
  53. --  
  54. --end
  55. --
  56. --
  57. --on move me
  58. --  
  59. --  repeat with x = 1 to count(PhotSpotList)
  60. --    rollThing getat(PhotSpotList,x)
  61. --  end repeat
  62. --  
  63. --end
  64. --
  65. --
  66. --on check me, hotspotlist, whichNode
  67. --  if count(hotspotlist) > 0 then
  68. --    puppetsprite 10,1
  69. --    set the membernum of sprite 10 = member getaprop(GpicList,whichNode) of castlib "interface"
  70. --    updatestage
  71. --  end if 
  72. --end
  73. --
  74. --
  75. --on chechNew whichNode
  76. --  if not voidP(getaprop(GpicList,whichNode)) then
  77. --    do getaprop(GpicList,whichNode)
  78. --    puppetsprite GvidSprite, 0
  79. --  end if
  80. --end
  81. --
  82.